home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / exsort data (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  7KB  |  119 lines
  1. 0 REM *********************************
  2. 1 REM **MASCHINENCODE SORTIERROUTINE **
  3. 2 REM **                             **
  4. 3 REM **     VON MARCUS RICKERT      **
  5. 4 REM *********************************
  6. 100 DATA169,3,141,8,3,169,193,141,9,3,96,160,1,177,122,1395
  7. 110 DATA201,83,240,3,76,228,167,200,177,122,201,69,208,3,76,2054
  8. 120 DATA218,197,201,79,208,239,32,115,0,32,115,0,32,115,0,1583
  9. 130 DATA32,253,174,32,236,196,32,36,195,76,88,193,32,253,174,2002
  10. 140 DATA32,138,173,32,247,183,165,20,141,0,192,165,21,141,1,1651
  11. 150 DATA192,32,253,174,32,138,173,32,247,183,165,20,141,2,192,1976
  12. 160 DATA165,21,141,3,192,96,32,49,193,32,253,174,32,158,183,1724
  13. 170 DATA142,4,192,224,2,144,7,162,120,160,197,76,250,196,32,1908
  14. 180 DATA199,195,142,6,192,140,7,192,141,8,192,160,0,177,122,1873
  15. 190 DATA240,4,201,58,208,8,169,0,141,11,192,76,162,193,32,1695
  16. 200 DATA253,174,32,236,196,32,36,195,32,199,195,142,9,192,140,2063
  17. 210 DATA10,192,141,11,192,169,0,141,5,192,160,0,32,60,197,1502
  18. 220 DATA160,2,32,60,197,169,0,141,246,192,141,247,192,160,18,1957
  19. 230 DATA32,80,197,144,3,76,174,167,160,16,32,80,197,162,16,1536
  20. 240 DATA160,18,32,42,197,142,20,192,140,21,192,162,20,160,246,1744
  21. 250 DATA32,154,196,240,219,48,217,173,16,192,141,12,192,173,17,2022
  22. 260 DATA192,141,13,192,173,18,192,141,14,192,173,19,192,141,15,1808
  23. 270 DATA192,32,239,195,160,6,174,8,192,232,138,162,12,32,1,1775
  24. 280 DATA197,32,47,196,240,23,72,173,4,192,208,6,104,16,14,1524
  25. 290 DATA76,27,194,104,48,8,162,12,32,227,196,76,251,193,160,1766
  26. 300 DATA6,174,8,192,232,138,162,14,32,1,197,32,47,196,240,1671
  27. 310 DATA23,72,173,4,192,208,6,104,48,14,76,67,194,104,16,1301
  28. 320 DATA8,162,14,32,209,196,76,35,194,162,12,160,14,32,154,1460
  29. 330 DATA196,240,2,16,103,160,6,174,8,192,232,138,162,12,32,1673
  30. 340 DATA1,197,134,251,132,252,160,6,174,8,192,232,138,162,14,2053
  31. 350 DATA32,1,197,134,253,132,254,172,8,192,32,105,197,173,11,1893
  32. 360 DATA192,240,38,160,9,174,11,192,232,138,162,12,32,1,197,1790
  33. 370 DATA134,251,132,252,160,9,174,11,192,232,138,162,14,32,1,1894
  34. 380 DATA197,134,253,132,254,172,11,192,32,105,197,162,12,32,227,2112
  35. 390 DATA196,162,14,32,209,196,162,14,160,12,32,154,196,48,3,1590
  36. 400 DATA76,251,193,162,14,160,16,32,42,197,142,20,192,140,21,1658
  37. 410 DATA192,162,18,160,12,32,42,197,142,22,192,140,23,192,162,1688
  38. 420 DATA20,160,22,32,154,196,16,34,162,12,160,18,32,154,196,1368
  39. 430 DATA16,10,160,12,32,60,197,160,18,32,60,197,173,14,192,1333
  40. 440 DATA141,18,192,173,15,192,141,19,192,76,200,193,162,16,160,1890
  41. 450 DATA14,32,154,196,16,10,160,16,32,60,197,160,14,32,60,1153
  42. 460 DATA197,173,12,192,141,16,192,173,13,192,141,17,192,76,200,1927
  43. 470 DATA193,169,4,141,20,192,162,0,134,3,134,4,32,115,0,1303
  44. 480 DATA240,63,201,58,240,59,201,36,240,20,201,37,240,24,201,2061
  45. 490 DATA44,240,47,21,3,149,3,224,2,240,32,232,76,47,195,1555
  46. 500 DATA169,2,141,20,192,76,99,195,169,1,141,20,192,165,3,1585
  47. 510 DATA9,128,133,3,165,4,9,128,133,4,76,47,195,162,158,1354
  48. 520 DATA160,197,76,250,196,165,47,133,251,165,48,133,252,76,164,2313
  49. 530 DATA195,160,0,177,251,197,3,208,10,200,177,251,197,4,208,2238
  50. 540 DATA3,76,183,195,160,2,24,165,251,113,251,170,8,200,40,1841
  51. 550 DATA165,252,113,251,133,252,138,133,251,165,251,197,49,208,212,2770
  52. 560 DATA165,252,197,50,208,206,162,143,160,197,76,250,196,160,4,2426
  53. 570 DATA177,251,201,1,208,1,96,162,185,160,197,76,250,196,24,2185
  54. 580 DATA160,6,177,251,237,2,192,8,136,177,251,40,237,3,192,2069
  55. 590 DATA176,7,162,0,169,18,76,59,164,24,165,251,105,7,170,1553
  56. 600 DATA165,252,105,0,168,173,20,192,96,24,173,16,192,109,18,1703
  57. 610 DATA192,170,173,17,192,109,19,192,74,141,21,192,138,106,141,1877
  58. 620 DATA20,192,174,8,192,232,138,160,6,162,20,32,1,197,134,1668
  59. 630 DATA40,132,41,173,8,192,201,4,208,4,138,76,162,187,174,1740
  60. 640 DATA8,192,138,168,177,40,149,97,202,136,16,248,96,134,40,1841
  61. 650 DATA132,41,173,8,192,201,2,240,9,201,1,240,65,138,32,1675
  62. 660 DATA91,188,96,160,1,177,40,133,3,200,177,40,133,4,160,1603
  63. 670 DATA0,76,98,196,177,3,209,98,240,8,176,3,169,1,96,1550
  64. 680 DATA169,255,96,200,152,160,0,209,40,240,8,197,97,240,4,2067
  65. 690 DATA168,76,83,196,177,40,197,97,240,5,176,229,76,91,196,2047
  66. 700 DATA169,0,96,165,97,141,21,192,165,98,141,20,192,160,0,1657
  67. 710 DATA177,40,141,23,192,200,177,40,141,22,192,162,20,160,22,1709
  68. 720 DATA189,0,192,217,0,192,208,11,189,1,192,217,1,192,208,2009
  69. 730 DATA3,76,124,196,189,1,192,48,23,185,1,192,48,164,56,1498
  70. 740 DATA189,0,192,249,0,192,189,1,192,249,1,192,144,152,76,2018
  71. 750 DATA91,196,185,1,192,16,144,76,183,196,56,189,0,192,233,1950
  72. 760 DATA1,157,0,192,189,1,192,233,0,157,1,192,96,254,0,1665
  73. 770 DATA192,208,3,254,1,192,96,165,122,56,233,1,133,122,165,1943
  74. 780 DATA123,233,0,133,123,96,134,34,132,35,76,71,164,133,40,1527
  75. 790 DATA189,0,192,133,113,189,1,192,133,114,169,0,133,41,152,1751
  76. 800 DATA72,32,87,179,134,40,132,41,104,168,24,165,40,121,0,1339
  77. 810 DATA192,170,165,41,121,1,192,168,96,56,185,0,192,253,0,1832
  78. 820 DATA192,72,185,1,192,253,1,192,168,104,170,96,174,5,192,1997
  79. 830 DATA185,0,192,157,25,192,185,1,192,157,136,192,232,142,5,1993
  80. 840 DATA192,96,174,5,192,202,16,2,56,96,189,25,192,153,0,1590
  81. 850 DATA192,189,136,192,153,1,192,142,5,192,24,96,177,251,170,2112
  82. 860 DATA177,253,145,251,138,145,253,136,16,243,96,255,87,82,79,2356
  83. 870 DATA78,71,32,83,79,82,84,73,78,71,32,68,73,82,69,1055
  84. 880 DATA67,84,73,79,206,65,82,82,65,89,32,78,79,84,32,1197
  85. 890 DATA70,79,85,78,196,87,82,79,78,71,32,65,82,82,65,1231
  86. 900 DATA89,32,78,65,77,197,87,82,79,78,71,32,73,78,68,1186
  87. 910 DATA69,216,79,78,76,89,32,79,78,69,32,68,73,77,69,1184
  88. 920 DATA78,83,73,79,78,32,65,82,82,65,217,0,255,0,255,1444
  89. 930 DATA0,255,32,255,0,32,115,0,32,115,0,32,115,0,32,1015
  90. 940 DATA253,174,32,236,196,32,36,195,32,49,193,32,199,195,142,1996
  91. 950 DATA6,192,140,7,192,141,8,192,32,253,174,32,158,173,162,1862
  92. 960 DATA2,160,0,32,154,196,16,7,162,174,160,197,76,250,196,1782
  93. 970 DATA173,8,192,201,2,240,20,32,141,173,173,8,192,201,4,1760
  94. 980 DATA240,23,32,170,177,133,97,132,98,76,57,198,32,163,182,1810
  95. 990 DATA133,97,165,34,133,98,165,35,133,99,174,8,192,232,138,1836
  96. 1000 DATA160,6,162,0,32,1,197,142,9,192,140,10,192,174,9,1426
  97. 1010 DATA192,172,10,192,32,47,196,240,42,162,0,160,2,32,154,1633
  98. 1020 DATA196,240,26,162,0,32,227,196,56,173,9,192,109,8,192,1818
  99. 1030 DATA141,9,192,173,10,192,105,0,141,10,192,76,75,198,169,1683
  100. 1040 DATA255,160,255,76,134,198,173,1,192,172,0,192,32,145,179,2164
  101. 1050 DATA169,0,133,13,133,14,169,73,133,69,169,78,133,70,32,1388
  102. 1060 DATA231,176,166,71,164,72,32,212,187,76,174,167,255,0,255,2238
  103. 1100 ZN=100:Z=49400:RESTORE:REM ** EINLESEN DER WERTE **
  104. 1110 PR=0
  105. 1120 FORS=0TO14:READX:PR=PR+X:POKEZ+S,X:NEXTS
  106. 1130 READX:IFX=PRTHEN1150
  107. 1140 PRINTCHR$(14)"[208]RUEFSUMMEN-[198]EHLER IN [218]EILE";ZN:END
  108. 1150 ZN=ZN+10:Z=Z+15
  109. 1160 IFZ<>50855THEN1110
  110. 1170 PRINT"FERTIG"
  111. 1180 INPUT"CASSETTE(1) ODER DISKETTE(8)";PN
  112. 1190 POKE251,PN:REM ** ABSPEICHERN ALS ABSOLUTPROGRAMM **
  113. 1200 POKE252,PEEK(45):POKE253,PEEK(46)
  114. 1210 POKE43,248:POKE44,192
  115. 1220 POKE45,172:POKE46,198
  116. 1230 IFPEEK(251)=1THENSAVE"EXSORT",1,2
  117. 1240 IFPEEK(251)<>1THENSAVE"@:EXSORT",PEEK(251)
  118. 1250 POKE43,1:POKE44,8:POKE45,PEEK(252):POKE46,PEEK(253)
  119.